00100		ENTRY DOG
00200	DOG:	0
00300		MOVE 7,[201004020100]
00400		MOVE 2,0(16)
00500		MOVE 4,@2(16)
00600		AOJ 4
00700		IMULI 4,43720
00800		MOVE 3,@1(16)
00900		MOVEM 4,NEX -1(3)
01000		SETZ 5
01100	KOP:	SETZ 6
01200	AIOP:	AOJ 5
01300	TSTG:	CAILE 5,110
01400		JRST RETUR
01500		CAMN 7,@2
01600		JRST AIOP
01700		SETZ 8
01800	AKN0:	AOJ 8
01900		CAMLE 8,@3(16)
02000		JRST NEWR
02100		MOVE 9,@2
02200		CAME 9,NWORD -1(8)
02300		JRST AKNO
02400		MOVEI 10,1
02500		CAIL 9,0
02600		JRST NFLET
02700	ICEL:	MOVE 11,9
02800		ADD 11,10
02900		CAILE 11,110
03000		JRST SKMO